home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / find-data < prev    next >
Encoding:
Text File  |  1988-08-29  |  553 b   |  28 lines
  1.  
  2. : cr?   ( -- , do cr if near end of line )
  3.   flushemit
  4.   out @ linelimit @  5 - < 0=
  5.   IF  ?pause cr
  6.   THEN
  7. ;
  8.  
  9. : find-data   ( addr cnt data -- )  cr
  10.   rot rot     ( data addr cnt -- )
  11.   swap even-up swap
  12.   over + swap ( data end start -- )
  13.   DO   i @ over =
  14.        IF     ( ?pause ) cr? i  6 .r space
  15.        THEN 2
  16.  +LOOP drop
  17. ;
  18.  
  19. : find-wdata   ( addr cnt data -- )  cr
  20.   rot rot     ( data addr cnt -- )
  21.   swap even-up swap
  22.   over + swap ( data end start -- )
  23.   DO   i w@ over =
  24.        IF     ( ?pause ) cr? i  6 .r space
  25.        THEN 2
  26.  +LOOP drop
  27. ;
  28.